home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / ScreenSaver Demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  57 lines
  1. 100 ss=51200
  2. 110 pokess+9,53248/256:rem start of storage
  3. 120 p$="press a key[146]"
  4. 130 sys65409:rem default screen set up
  5. 140 d=5:r=0:gosub590
  6. 150 print"when printing message boxes and pseudo  windows on the c-64 screen,";
  7. 160 print" things don'talways work out as planned.":tt=2:gosub620
  8. 170 print:print"lines that wrap can disrupt your nice,  neat box...":gosub620
  9. 180 print""tab(10)p$
  10. 190 gosub640
  11. 200 sys ss:rem save screen
  12. 210 c=1:gosub430
  13. 220 gosub640
  14. 230 sys ss+3:rem recall scrn
  15. 240 gosub620
  16. 250 print"[145]but, if you set bit 7 of locations 217  thru 242,";:gosub620
  17. 260 print" wrapped lines are un-linked   and the box comes out as planned.
  18. 270 [141]620:[153]""[163]r)p$:[141]640
  19. 280 [158] ss:[158] ss[170]6:c[178]3:[141]430
  20. 290 [141]640:[158] ss[170]3
  21. 300 [141]620
  22. 310 [153]"onnow executing multiple screen saves..."
  23. 320 [141]620
  24. 330 w[178]16:h[178]4:d[178]3:r[178]5
  25. 340 [129]c[178]1[164]4:[158] ss
  26. 350 [151]ss[170]9,[194](ss[170]9)[170]8:[143] move storage
  27. 360 [151]646,c:d[178]d[170]2:r[178]r[170]2:[141]480
  28. 370 [130]
  29. 380 [141]620:[141]590:[153]""p$;:[141]640
  30. 390 [129]c[178]1[164]4:[151]ss[170]9,[194](ss[170]9)[171]8
  31. 400 [158]ss[170]3
  32. 410 tt[178].5:[141]620:[130]
  33. 420 [128]
  34. 430 [151]646,c:w[178]22:h[178]8:d[178]4:r[178]6:rv$[178]"":[141]490
  35. 440 d[178]8:r[178]12:[141]590:[153]rv$"like this"
  36. 450 [141]620:[153]"sys"[163]r[171]1)p$;
  37. 460 [142]
  38. 470 [143] *** print box ***
  39. 480 [158] ss[170]6:[143] clear links
  40. 490 [141]590
  41. 500 [153]rv$"or";
  42. 510 [129]i[178]1[164]w[171]2:[153]"tan";:[130]:[153]"^"
  43. 520 [129]i[178]1[164]h:[153][163]r);
  44. 530 [153]rv$"(NULL)";:[129]j[178]1[164]w[171]2:[153]" ";:[130]:[153]"(NULL)":[130]
  45. 540 [153][163]r)rv$;
  46. 550 [153]"/";:[129]i[178]1[164]w[171]2:[153]"tan";:[130]
  47. 560 [153]"exp"
  48. 570 [142]
  49. 580 [143]
  50. 590 [151]214,d[171]1:[153]:[143] vertical position
  51. 600 [153][163]r);:[143] horiz pos.
  52. 610 [142]
  53. 620 [143] time delay
  54. 630 [129]t[178]1[164]1000[172]tt:[130]:[142]
  55. 640 [143] wait for key press
  56. 650 [151]198,0:[146]198,1:[142]
  57.